home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h6.d64 / art show.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  67 lines
  1. 1 REM  ART SHOW FOR DIGITIZED PICTURES
  2. 2 REM  BY STEPHEN MURRI.
  3. 3 REM
  4. 4 REM  SPECIAL THANKS TO FRANK COVITZ
  5. 5 REM  FOR DESIGNING THE DIGITIZER.
  6. 6 REM
  7. 7 REM  THIS SHOW PUT TOGETHER ON JUNE 8
  8. 8 REM  BY DAVID BRADLEY AT CEDAR GLEN.
  9. 9 REM
  10. 10 REM SPRITES AT $3F80
  11. 11 REM DISSOLVE ROUTINES AT $C000
  12. 17 IFX=0THENPOKE53280,6:POKE53281,6:PRINT"[147]COMMODORE 64 ART SHOW"
  13. 19 IFX=0THENX=1:PRINT"LOADING ..."
  14. 20 IFX=1THENX=2:LOAD"LOGO.D",8,1
  15. 22 IFX=2THENX=3:LOAD"DISSOLVE.D",8,1
  16. 25 IFX=3THENPOKE55,0:POKE56,31:CLR:X=4:GOTO2000
  17. 30 IFX=4THENX=5:POKE53280,0:POKE53281,0:GOTO50
  18. 40 IFX=5THEN130
  19. 50 PRINT"[147]         PRESS ANY KEY TO START"
  20. 51 GETA$:IFA$=""THEN51
  21. 52 PRINT"[147]":FORT=0TO500:NEXT:GOTO60
  22. 60 REM MAIN LOOP
  23. 61 GOSUB1000:REM TITLE SCREEN
  24. 100 SYS34592:REM SET UP MC BITMAP MODE
  25. 105 FORT=0TO100:NEXT
  26. 110 SYS34592+3:REM DISSOLVE IN SCREEN
  27. 120 GOTO2000:REM LOAD NEXT FILE
  28. 130 SYS34592+6:REM DISSOLVE OUT
  29. 140 REM
  30. 150 IFE=1THEN9000:REM END OF STREAM
  31. 160 GOTO100
  32. 1000 SYS34592+9:REM RESTORE TEXT MODE
  33. 1005 POKE2040,254:REM SPRITE POINTER
  34. 1010 POKE2041,255:REM SPRITE POINTER
  35. 1020 VIC=53248
  36. 1030 POKEVIC+39,6:REM COLOR 0
  37. 1040 POKEVIC+40,2:REM COLOR 1
  38. 1050 POKEVIC+29,0:REM X EXPAND OFF
  39. 1060 POKEVIC+28,0:REM MCM OFF
  40. 1070 POKEVIC+23,0:REM Y EXPAND OFF
  41. 1080 POKEVIC+16,0:REM MSB X OFF
  42. 1090 POKEVIC+1,136:REM Y LOCATION 0
  43. 1100 POKEVIC+3,136:REM Y LOCATION 1
  44. 1110 POKEVIC+0,128:REM X LOCATION 0
  45. 1120 POKEVIC+2,128:REM X LOCATION 1
  46. 1130 POKEVIC+21,3:REM TURN ON
  47. 1150 PRINT"[147] COMMODORE 64"
  48. 1160 PRINT"   ART SHOW"
  49. 1165 FORT=0TO2500:NEXT
  50. 1166 POKEVIC+21,0:REM SPRITES OFF
  51. 1170 RETURN
  52. 2000 IFN=0THENF$="A GRAPHICS"
  53. 2001 IFN=1THENF$="B GIRL    ":REM FROM PASSION MAGAZINE
  54. 2003 IFN=2THENF$="D ETLANOCE":REM FROM PAINTING BY RUSS WARREN
  55. 2004 IFN=3THENF$="H STARSAOK":REM BY    DAVID BRADLEY
  56. 2005 IFN=4THENF$="F ODEON   ":REM FROM PASSION MAGAZINE
  57. 2006 IFN=5THENF$="G MOON    "
  58. 2007 IFN=6THENF$="L CFTR 4  ":REM BY    DAVID BRADLEY
  59. 2010 IFN=7THENF$="J THATSIT "
  60. 2019 IFN=8THENF$="A GRAPHICS":E=1
  61. 2200 FI$=CHR$(129)+"PIC "+F$
  62. 2205 N=N+1
  63. 2210 LOADFI$,8,1
  64. 2220 END
  65. 9000 SYS34592+9:REM RESTORE TEXT MODE
  66. 9100 CLR:N=1:X=5:GOTO60
  67.